﻿Public Class XpsInfo

    Private ReadOnly _Filename As String
    Private ReadOnly _Content As String
    Private ReadOnly _Title As String
    Private ReadOnly _Author As String
    Private ReadOnly _LastModifiedTime As DateTime


    Sub New(ByVal fileName As String, ByVal content As String, ByVal title As String, ByVal author As String, ByVal lastmodifiedtime As Date)
        Me._Filename = fileName
        Me._Content = content
        Me._Title = title
        Me._Author = author
        Me._LastModifiedTime = lastmodifiedtime


    End Sub


    Public ReadOnly Property Author() As String
        Get
            Return _Author
        End Get
    End Property
    Public ReadOnly Property Content() As String
        Get
            Return _Content
        End Get
    End Property
    Public ReadOnly Property Filename() As String
        Get
            Return _Filename
        End Get
    End Property
    Public ReadOnly Property LastModifiedTime() As DateTime
        Get
            Return _LastModifiedTime
        End Get
    End Property
    Public ReadOnly Property Title() As String
        Get
            Return _Title
        End Get
    End Property



End Class
